library(tidyverse)

exibble <-
  dplyr::tribble(
       ~num,        ~char,   ~fctr,        ~date,   ~time,          ~datetime, ~currency,    ~row, ~group,
     0.1111,    "apricot",   "one", "2015-01-15", "13:35", "2018-01-01 02:22",     49.95, "row_1", "grp_a",
      2.222,     "banana",   "two", "2015-02-15", "14:40", "2018-02-02 14:33",     17.95, "row_2", "grp_a",
      33.33,    "coconut", "three", "2015-03-15", "15:45", "2018-03-03 03:44",      1.39, "row_3", "grp_a",
      444.4,     "durian",  "four", "2015-04-15", "16:50", "2018-04-04 15:55",     65100, "row_4", "grp_a",
       5550,           NA,  "five", "2015-05-15", "17:55", "2018-05-05 04:00",   1325.81, "row_5", "grp_b",
         NA,        "fig",   "six", "2015-06-15",      NA, "2018-06-06 16:11",    13.255, "row_6", "grp_b",
     777000, "grapefruit", "seven",           NA, "19:10", "2018-07-07 05:22",        NA, "row_7", "grp_b",
    8880000,   "honeydew", "eight", "2015-08-15", "20:20",                 NA,      0.44, "row_8", "grp_b",
  ) |>
  dplyr::mutate(
    fctr = factor(fctr, levels = c(
      "one", "two", "three", "four", "five", "six", "seven", "eight"
    ))
  )
